home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
halcn305.zip
/
GSDMO_14.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-02
|
1KB
|
41 lines
program GSDMO_14;
{------------------------------------------------------------------------------
DBase File Maker
Copyright (c) Richard F. Griffin
20 January 1993
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
Program that creates a dBase file.
Demonstrates the use of GS_DB4Build to create a dBase file. A
file 'MYFILE.DBF' will be created.
-------------------------------------------------------------------------------}
uses
GSOB_DBF;
var
MyFile : GSO_DB4Build; {Creates a dBase IV file}
{Use GSO_DB3Build for a dBase III file}
begin
with MyFile do
begin
Init('MyFile');
{Insert the fields into the file}
InsertField('FIELD1','C',8,0); {Character, length 8}
InsertField('SECOND','D',8,0); {Date (length 8)}
InsertField('THIRD','L',1,0); {Logical (length 1)}
InsertField('FOURTH','N',6,2); {Number, length 6, 2 Decimals}
{End insertion by calling Done to close the file}
Done;
end;
end.